home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 July: Mac OS SDK / Dev.CD Jul 99 SDK1.toast / Development Kits / Mac OS / QuickDraw3D 1.6 SDK / Mac SampleCode Previous / Viewer Samples - Mac / SimpleViewer / SimpleViewer.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-05-18  |  26.5 KB  |  1,094 lines  |  [TEXT/MPCC]
  1. //--------------------------------------------------------------------------------------------
  2. // simple viewer application 
  3. // DEVELOPER SUPPORT May 95
  4. //
  5. // This is a simple viewer application, that illustrates a minimal, but
  6. // functionally complete viewer application.
  7. //
  8. // Nick Thompson, Developer Support, Apple Computer (DEVSUPPORT),
  9. // ©1995, Apple Computer Inc., All Rights Reserved
  10.  
  11. #include <AppleEvents.h>
  12. #include <menus.h>
  13. #include <PictUtils.h>
  14. #include <QDOffScreen.h>
  15. #include <Errors.h>
  16.  
  17. #include "QD3D.h"
  18. #include "QD3DViewer.h"
  19. #include "QD3DGestalt.h"
  20. #include "QD3DViewerGestalt.h"
  21.  
  22. //--------------------------------------------------------------------------------------------
  23. //
  24. const int    kWindowWidth = 220 ;
  25. const int    kWindowHeight = 150 ;
  26.  
  27. //--------------------------------------------------------------------------------------------
  28. //
  29. #define HiWrd(aLong)    (((aLong) >> 16) & 0xFFFF)
  30. #define LoWrd(aLong)    ((aLong) & 0xFFFF)
  31.  
  32.     
  33.  
  34. //--------------------------------------------------------------------------------------------
  35. // menu id's
  36. enum {
  37.     mApple = 128,
  38.     mFile,
  39.     mEdit
  40. } ;
  41.  
  42. //--------------------------------------------------------------------------------------------
  43. // command id's, Apple menu
  44. enum {
  45.     iAbout = 1
  46. } ;
  47.  
  48. //--------------------------------------------------------------------------------------------
  49. // command id's, File menu
  50. enum {
  51.     iNew = 1,
  52.     iOpen,
  53.     iUnused1,
  54.     iClose,
  55.     iSave,
  56.     iSaveAs,
  57.     iRevert,
  58.     iUnused2,
  59.     iQuit
  60. } ;
  61.  
  62. //--------------------------------------------------------------------------------------------
  63. // command id's, Edit menu
  64. enum {
  65.     iUndo = 1,
  66.     iUnused3,
  67.     iCut,
  68.     iCopy,
  69.     iPaste,
  70.     iClear
  71. } ;
  72.  
  73. //--------------------------------------------------------------------------------------------
  74. // static control variables
  75.  
  76. static Boolean gQuitFlag = false ;                // we ain't quittin yet
  77. static Point gStaggerPos = {50,50} ;            // start opening staggered windows at this point
  78. static AEAddressDesc    gSelfAddress;            // A self-addressed address descriptor record
  79. static ProcessSerialNumber    gSelfPSN;            // This application's psn
  80.  
  81. //--------------------------------------------------------------------------------------------
  82. // function prototypes
  83.  
  84. Boolean SupportsQuickDraw3D(void) ;
  85. Boolean     SupportsQuickDraw3DViewer(void) ;
  86. void         InitToolbox( void ) ;
  87. void        FailIfErr(OSErr something ) ;
  88. void         MainEventLoop( void ) ;
  89. void         HandleKeyPress( EventRecord *event ) ;
  90. Boolean        HandleEvent( EventRecord *theEvent ) ;
  91. void         HandleMenuCommand( long menuResult ) ;
  92. void         MyAdjustMenus( void ) ;
  93. OSErr        MyDisposeViewerWindow( WindowPtr theWindow ) ;
  94. CGrafPtr     MyCreateViewerWindow( void ) ;
  95.  
  96. //-- AppleEvent Related
  97.  
  98. Boolean SupportsAEVT(void) ;
  99. void RegisterMyEvents(void) ;
  100. pascal OSErr MyAEHandleOAPP( AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) ;
  101. pascal OSErr MyAEHandleODOC(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) ;
  102. pascal OSErr MyAEHandlePDOC(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon) ;
  103. pascal OSErr MyAEHandleQUIT(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon) ;
  104. void DoAppOpenCommand( void ) ;
  105. void MySendQuitApp( void ) ;
  106. void MySendOpenDoc(FSSpec *myFSSpec) ;
  107.  
  108. //--------------------------------------------------------------------------------------------
  109. // Constants
  110.  
  111. const RGBColor    kRGBBlack = { 0x0000, 0x0000, 0x0000 } ;
  112. const RGBColor    kRGBWhite = { 0xFFFF, 0xFFFF, 0xFFFF } ;
  113. const int         kMyAboutDialogID = 128 ;
  114. const int         kMyFatalDialogID = 129 ;
  115. const int        kQD3DAlertID = 27309 ;
  116. //--------------------------------------------------------------------------------------------
  117. // Types
  118. typedef struct _viewerData {
  119.     TQ3ViewerObject        theViewer ;
  120.     FSSpec                theFile ;
  121.     Boolean                isFileValid ;
  122. } ViewerData, *ViewerDataPtr, **ViewerDataHandle ;
  123.  
  124. //--------------------------------------------------------------------------------------------
  125. //
  126. //
  127.  
  128. main()
  129. {
  130.     MoreMasters(); MoreMasters() ; MoreMasters() ;
  131.     MaxApplZone() ;            // Maximise the heap - the viewer requires at least 32k
  132.     InitToolbox() ;
  133.  
  134.     // WE DON'T CHECK FOR 68K machine.
  135.     // Instead I use the NotPPC.rsrc resource file.  This is a file with a 68k CODE 0
  136.     // and CODE 1 resource that puts up a dialog that says "this app only runs on a power
  137.     // macintosh computer.
  138.     
  139.     if( SupportsAEVT() && SupportsQuickDraw3D() && SupportsQuickDraw3DViewer()  ) {
  140.     
  141.         // AppleEvent stuff:
  142.         // Set up the self-addressed descriptor record.
  143.          gSelfPSN.highLongOfPSN = 0;
  144.          gSelfPSN.lowLongOfPSN = kCurrentProcess;        //* Use this instead of GetCurrentProcess *//
  145.          FailIfErr(AECreateDesc(typeProcessSerialNumber,(Ptr)&gSelfPSN,sizeof(ProcessSerialNumber),&gSelfAddress));
  146.  
  147.         RegisterMyEvents() ;    // register the appleevents for this app
  148.  
  149.         MainEventLoop() ;        // Handle events 'til we die
  150.     } 
  151.     else {
  152.         Str255 theString ;
  153.         GetIndString(theString,kQD3DAlertID,3);
  154.         ParamText( theString, 0L,  0L,  0L ) ;
  155.         (void)Alert(kQD3DAlertID,nil);
  156.     }
  157. }
  158. //---------------------------------------------------------------------
  159.  
  160. Boolean SupportsQuickDraw3D(void) 
  161. {
  162.     OSErr err;
  163.     long response;
  164.         
  165.     err = Gestalt(gestaltQD3D,&response);
  166.     if (err!=noErr)
  167.         return false;
  168.         
  169.     return (response && (response << gestaltQD3DAvailable));
  170. }
  171.  
  172. //---------------------------------------------------------------------
  173.  
  174. Boolean SupportsQuickDraw3DViewer(void) 
  175. {
  176.     OSErr err;
  177.     long response;
  178.         
  179.     err = Gestalt( gestaltQD3DViewer,&response );
  180.     if (err!=noErr)
  181.         return false;
  182.         
  183.     return (response && ( response << gestaltQD3DViewerAvailable ));
  184. }
  185.  
  186. //--------------------------------------------------------------------------------------------
  187. //
  188. //
  189. void FailIfErr( OSErr something )
  190. { 
  191.     OSErr myErr ; 
  192.     if(( myErr = something) != noErr ) { 
  193.         ModalFilterUPP         theProc ;
  194.         DialogPtr            theDialog ; 
  195.         short                itemHit ;
  196.         Str255                theError ;
  197.         
  198.         NumToString(something,theError);
  199.     
  200.         theDialog = GetNewDialog ( kMyFatalDialogID, nil, (WindowPtr)-1 );
  201.         
  202.         // these two lil' snappers are system 7 only
  203.         // so if you use them, check before!!
  204.         // in this app we will only run on Power
  205.         // Macintosh, so we don't check
  206.         
  207.         GetStdFilterProc( &theProc ) ;
  208.         SetDialogDefaultItem(theDialog, ok) ;
  209.         
  210.         ParamText( theError, 0L, 0L, 0L ) ;
  211.         
  212.         // put the dialog up and loop 'til
  213.         // the user hits the OK button
  214.  
  215.         do {
  216.             ModalDialog ( theProc, &itemHit );
  217.         } while( itemHit != ok ) ;
  218.         
  219.         DisposeDialog ( theDialog );
  220.         
  221.         ExitToShell() ; 
  222.     } 
  223. } 
  224.  
  225. //--------------------------------------------------------------------------------------------
  226. //
  227. //
  228.  
  229. void InitToolbox()
  230. {
  231.     Handle        menuBar = nil;
  232.  
  233.  
  234.     InitGraf((Ptr) &qd.thePort);
  235.     InitFonts();
  236.     InitWindows();
  237.     InitMenus();
  238.     TEInit();
  239.     InitDialogs((long)nil);
  240.     InitCursor();
  241.  
  242.     // initialize application globals
  243.     
  244.     gQuitFlag = false;
  245.     
  246.     
  247.     menuBar = GetNewMBar(128);                // Read menus into menu bar, MBAR res id is 128
  248.     
  249.     if ( menuBar == nil )
  250.          ExitToShell();                        // if we dont have it then quit - your app 
  251.                                              // needs a dialog here
  252.  
  253.     SetMenuBar(menuBar);                    // Install menus
  254.     DisposeHandle(menuBar);
  255.     
  256.     AppendResMenu(GetMenuHandle(mApple), 'DRVR');    // Add DA names to Apple menu, ID 128
  257.  
  258.     MyAdjustMenus() ;
  259.     DrawMenuBar();
  260. }
  261.  
  262.  
  263. //--------------------------------------------------------------------------------------------
  264. //
  265. //
  266. void MainEventLoop()
  267. {
  268.     EventRecord         event;
  269.     WindowPtr           theWindow;
  270.     Boolean                wasViewerEvent ;
  271.     GrafPtr             savedPort ;
  272.     Point                localPt ;
  273.     TQ3ViewerObject     theViewer ;
  274.     ViewerDataHandle    myData ;
  275.  
  276.     MyAdjustMenus() ;
  277.     while( !gQuitFlag )
  278.     {
  279.         if (WaitNextEvent( everyEvent, &event, 0, nil ))
  280.         {
  281.             
  282.             if((theWindow = FrontWindow()) != nil ) {
  283.             
  284.                 myData = (ViewerDataHandle)GetWRefCon(theWindow);
  285.                 theViewer = (**myData).theViewer;
  286.             }
  287.             
  288.             if( theViewer ) {
  289.                 GetPort( &savedPort ) ;
  290.                 SetPort( (GrafPtr)theWindow ) ;
  291.                 GetMouse(&localPt);
  292.                 if (!Q3ViewerAdjustCursor(theViewer, &localPt))
  293.                     InitCursor();
  294.                 wasViewerEvent = Q3ViewerEvent ( theViewer, &event );
  295.                 SetPort( savedPort ) ;
  296.             }
  297.             else
  298.                 wasViewerEvent = false ;
  299.             
  300.             // was it a viewer event????
  301.             if( !wasViewerEvent )
  302.                 HandleEvent( &event );
  303.         }
  304.     }
  305. }
  306.  
  307. //----------------------------------------------------------------------------------
  308. //    HandleActivateWindow is called when an event is received that reports that
  309. //    a window is being either activated or deactivated.
  310.  
  311. static void HandleActivateWindow(WindowPtr theWindow, short activate)
  312. {
  313.     if (theWindow) {
  314.         if (activate) {
  315.         
  316.             // do whatever else you'd like to do for a activate event
  317.             LoadScrap() ;
  318.  
  319.         } else {
  320.         
  321.             // do whatever you'd like to do for a deactivate event
  322.             UnloadScrap() ;
  323.         }
  324.     }
  325. }
  326.  
  327. //--------------------------------------------------------------------------------------------
  328. //
  329. //
  330. Boolean        HandleEvent( EventRecord *theEvent )
  331. {
  332.     short               thePart;
  333.     WindowPtr            theWindow ;
  334.     Rect                screenRect;
  335.     GrafPtr                oldPort ;
  336.     Point                aPoint = {100, 100};
  337.     TQ3ViewerObject     theViewer ;
  338.     ViewerDataHandle    myData ;
  339.     
  340.     switch (theEvent->what) {
  341.         case mouseDown:
  342.         
  343.             thePart = FindWindow( theEvent->where, &theWindow );
  344.             
  345.             switch( thePart ) {
  346.                 case inMenuBar: 
  347.                     MyAdjustMenus() ;
  348.                     HandleMenuCommand(MenuSelect(theEvent->where));
  349.                     break;
  350.                 
  351.                 case inDrag:
  352.                     screenRect = (**GetGrayRgn()).rgnBBox;
  353.                     DragWindow( theWindow, theEvent->where, &screenRect );
  354.                     break ;
  355.             
  356.                 case inContent:
  357.                     if (theWindow != FrontWindow())
  358.                         SelectWindow( theWindow );
  359.                     break ;
  360.             
  361.                 case inGoAway:
  362.                     if (TrackGoAway( theWindow, theEvent->where )) {
  363.                         MyDisposeViewerWindow( theWindow ) ;
  364.                     }
  365.                     break ;
  366.                     
  367.                 default:
  368.                     break ;
  369.             }
  370.             break ;
  371.                     
  372.                 
  373.         case updateEvt:
  374.         
  375.             theWindow = (WindowPtr)theEvent->message;
  376.             myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  377.             theViewer = (**myData).theViewer ;
  378.             
  379.             GetPort(&oldPort ) ;    
  380.             SetPort( theWindow );
  381.             
  382.             BeginUpdate( theWindow );
  383.             Q3ViewerDraw( theViewer ) ;
  384.             EndUpdate( theWindow );
  385.             
  386.             SetPort( oldPort ) ;
  387.             
  388.             break ;
  389.             
  390.         case keyDown:
  391.         case autoKey:
  392.             HandleKeyPress(theEvent);
  393.             break;
  394.             
  395.         case diskEvt:
  396.             if ( HiWrd(theEvent->message) != noErr ) 
  397.                 (void) DIBadMount(aPoint, theEvent->message);
  398.             break;
  399.             
  400.         case osEvt:
  401.             break ;
  402.         case activateEvt:
  403.             if ((theWindow = (WindowPtr) theEvent->message) != nil) {
  404.                 HandleActivateWindow(theWindow, (theEvent->modifiers & activeFlag));
  405.             }
  406.  
  407.             break;
  408.  
  409.         case kHighLevelEvent:                        // Let the Apple Event Manager handle high level event.
  410.             AEProcessAppleEvent(theEvent);
  411.             break;
  412.  
  413.     }
  414.     return true ;
  415. }
  416.  
  417.  
  418. //--------------------------------------------------------------------------------------------
  419. //
  420. //
  421. void HandleKeyPress(EventRecord *event)
  422. {
  423.     char    key;
  424.  
  425.     key = event->message & charCodeMask;
  426.     
  427.     // just check to see if we want to quit...
  428.     
  429.     if ( event->modifiers & cmdKey ) {        /* Command key down? */
  430.         HandleMenuCommand(MenuKey(key));
  431.     } 
  432. }
  433.  
  434. //--------------------------------------------------------------------------------------------
  435. //
  436. //
  437.  
  438. static void HandleAboutApp( void )
  439. {
  440.     ModalFilterUPP         theProc ;
  441.     DialogPtr            theDialog ; 
  442.     short                itemHit ;
  443.  
  444.     theDialog = GetNewDialog ( kMyAboutDialogID, nil, (WindowPtr)-1 );
  445.     
  446.     // these two lil' snappers are system 7 only
  447.     // so if you use them, check before!!
  448.     // in this app we will only run on Power
  449.     // Macintosh, so we don't check
  450.     
  451.     GetStdFilterProc( &theProc ) ;
  452.     SetDialogDefaultItem(theDialog, ok) ;
  453.     
  454.     // put the dialog up and loop 'til
  455.     // the user hits the OK button
  456.     
  457.     do {
  458.         ModalDialog ( theProc, &itemHit );
  459.     } while( itemHit != ok ) ;
  460.     
  461.     DisposeDialog ( theDialog );
  462. }
  463.  
  464. //--------------------------------------------------------------------------------------------
  465. //
  466. //
  467. static OSErr HandleOpenDoc(FSSpec *theFile)
  468. {
  469.     OSErr                err ;
  470.     short                theRef ;
  471.     ViewerDataHandle    myData ;
  472.     TQ3ViewerObject     theViewer ;
  473.     WindowPtr            theWindow ;
  474.  
  475.     // display the contents
  476.     theWindow = (WindowPtr)MyCreateViewerWindow() ;
  477.     
  478.     // open the file
  479.     err = FSpOpenDF( theFile, fsRdPerm, &theRef ) ;
  480.     if (err == noErr)
  481.     {
  482.         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  483.         theViewer = (**myData).theViewer ;
  484.         (**myData).theFile = *theFile ;
  485.         (**myData).isFileValid = true ;
  486.         Q3ViewerUseFile(theViewer, theRef) ;
  487.         err = FSClose(theRef) ;
  488.     }
  489.     
  490.     // set the window title
  491.     SetWTitle( theWindow, theFile->name );
  492.     MyAdjustMenus() ;
  493.     return err ;
  494. }
  495.  
  496.  
  497. //--------------------------------------------------------------------------------------------
  498. //
  499. //
  500. void HandleMenuCommand(long menuResult)
  501. {
  502.     short                menuID;
  503.     short                menuItem;
  504.     Str255                daName;
  505.     
  506.  
  507.     short                numTypes = 2 ;
  508.     SFTypeList            myTypes = { '3DMF', 'TEXT', 0 } ;
  509.     OSErr                err ;
  510.     short                theRef ;
  511.     
  512.     ViewerDataHandle    myData ;
  513.     TQ3ViewerObject     theViewer ;
  514.     WindowPtr            theWindow ;
  515.     GrafPtr                savedPort ;
  516.     
  517.     FSSpec                theFile ;
  518.         
  519.     StandardFileReply    theSFReply ;
  520.  
  521.     menuID = HiWrd(menuResult);
  522.     menuItem = LoWrd(menuResult);
  523.     
  524.     switch ( menuID ) {
  525.         //
  526.         //--------------------------------------------------------------------------    
  527.         //
  528.         case mApple:
  529.             switch ( menuItem ) {
  530.  
  531.                 case iAbout:
  532.                     HandleAboutApp() ;    
  533.                     break ;
  534.                                 
  535.                 default:
  536.                     GetMenuItemText(GetMenuHandle(mApple), menuItem, daName);
  537.                     (void) OpenDeskAcc(daName);
  538.                     break;
  539.             }
  540.             break;
  541.         //
  542.         //--------------------------------------------------------------------------    
  543.         //
  544.         case mFile:
  545.             switch ( menuItem ) {
  546.                 case iNew:
  547.                     // display the contents
  548.                     (void)MyCreateViewerWindow() ;
  549.                     break ;
  550.                 
  551.                 case iOpen:
  552.                     // Get the file name to open
  553.                     StandardGetFile( nil, numTypes, myTypes, &theSFReply ) ;
  554.                     
  555.                     // did the user cancel, if not open the file?
  556.                     if(theSFReply.sfGood)
  557.                         MySendOpenDoc(&theSFReply.sfFile) ;
  558.  
  559.                     break ;
  560.                     
  561.                     
  562.                 case iRevert:
  563.                 
  564.                     // we know this can't be called as long as there
  565.                     // is an app window open (MyAdjustMenus) so get the refcon
  566.                     // from the front window and get the FSSpec from that
  567.                     theWindow = FrontWindow() ;
  568.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  569.                     theFile = (**myData).theFile ;
  570.                     
  571.                     // open the file and read it back into the viewer
  572.                     err = FSpOpenDF( &theFile, fsRdPerm, &theRef ) ;
  573.                     if (err == noErr)
  574.                     {
  575.                         theViewer = (**myData).theViewer ;
  576.                         Q3ViewerUseFile(theViewer, theRef) ;
  577.                         err = FSClose(theRef) ;
  578.                     }
  579.                     GetPort( &savedPort ) ;
  580.                     SetPort((GrafPtr)theWindow) ;
  581.                     InvalRect( &theWindow->portRect ) ;
  582.                     SetPort( savedPort ) ;
  583.                     break ;        
  584.                             
  585.                 case iSave:                
  586.                 
  587.                     // we know this can't be called as long as there
  588.                     // is an app window open (MyAdjustMenus) so get the refcon
  589.                     // from the front window and get the FSSpec from that
  590.                     theWindow = FrontWindow() ;
  591.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  592.                     theFile = (**myData).theFile ;
  593.                     theViewer = (**myData).theViewer ;
  594.  
  595.                     // assumes the original file still exists
  596.                     err = FSpOpenDF(&theFile, fsWrPerm, &theRef);
  597.                     if (err == noErr)
  598.                     {
  599.                         Q3ViewerWriteFile(theViewer, theRef);
  600.                         err = FSClose(theRef);
  601.                     }
  602.                     break ;
  603.                 
  604.                 case iSaveAs:
  605.                     // we know this can't be called as long as there
  606.                     // is an app window open (MyAdjustMenus) so get the refcon
  607.                     // from the front window and get the FSSpec from that
  608.                     theWindow = FrontWindow() ;
  609.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  610.                     theViewer = (**myData).theViewer ;
  611.  
  612.                     StandardPutFile("\pSave model as:", "\pUntitled", &theSFReply);
  613.                     if (theSFReply.sfGood)
  614.                     {
  615.                         err = FSpOpenDF(&theSFReply.sfFile, fsWrPerm, &theRef);
  616.                         if (err != noErr)
  617.                         {
  618.                             err = FSpCreate(&theSFReply.sfFile, '????', '3DMF', theSFReply.sfScript);
  619.                             if (err == noErr)
  620.                                 err = FSpOpenDF(&theSFReply.sfFile, fsCurPerm, &theRef);
  621.                         }
  622.                         if (err == noErr)
  623.                         {
  624.                             Q3ViewerWriteFile(theViewer, theRef);
  625.                             err = FSClose(theRef);
  626.                         }
  627.                         
  628.                         // set up our record of the file location,
  629.                         // update the structure
  630.                         theWindow = FrontWindow() ;
  631.                         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  632.                         theViewer = (**myData).theViewer ;
  633.                         (**myData).theFile = theSFReply.sfFile ;
  634.                         (**myData).isFileValid = true ;
  635.                         
  636.                         // reset the window title
  637.                         SetWTitle( theWindow, theSFReply.sfFile.name );
  638.                     }
  639.                     break;                
  640.                 
  641.                 case iClose:
  642.                     MyDisposeViewerWindow ( FrontWindow() );
  643.                     break ;
  644.                     
  645.                 case iQuit:
  646.                     MySendQuitApp();
  647.                     break;
  648.             }
  649.             break;
  650.             
  651.             
  652.         //
  653.         //--------------------------------------------------------------------------    
  654.         //
  655.         case mEdit:
  656.             // display the contents
  657.             theWindow = FrontWindow() ;
  658.             myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  659.             theViewer = (**myData).theViewer ;
  660.             switch(menuItem)
  661.             {
  662.                 case iCut:
  663.                     Q3ViewerCut(theViewer);
  664.                     break;
  665.                 case iCopy:
  666.                     Q3ViewerCopy(theViewer);
  667.                     break;
  668.                 case iPaste:
  669.                     Q3ViewerPaste(theViewer);
  670.                     break;
  671.                 case iClear:
  672.                     Q3ViewerClear(theViewer);
  673.                     break;
  674.                 default:
  675.                     break;
  676.             }
  677.             break; 
  678.  
  679.     }
  680.     HiliteMenu(0);        // Unhighlight whatever MenuSelect or MenuKey hilited
  681. }
  682.  
  683. //--------------------------------------------------------------------------------------------
  684. //
  685. //
  686. void MyAdjustMenus( void ) 
  687. {
  688.     WindowPtr            theWindow ;
  689.     ViewerDataHandle    myData ;
  690.     MenuHandle            theMenu ;
  691.  
  692.     theWindow = FrontWindow() ;
  693.     
  694.     
  695.     if( theWindow != nil ) {
  696.     
  697.         theMenu =  GetMenuHandle ( mFile ) ;
  698.         
  699.         EnableItem ( theMenu, iClose );
  700.         EnableItem ( theMenu, iSaveAs );
  701.                  
  702.         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  703.         
  704.          if(    (**myData).isFileValid) {
  705.             EnableItem ( theMenu, iSave );
  706.             EnableItem (theMenu, iRevert );
  707.          }
  708.          else {
  709.             DisableItem ( theMenu, iSave );
  710.             DisableItem ( theMenu, iRevert );
  711.          
  712.          }
  713.          
  714.          EnableItem ( GetMenuHandle ( mEdit ), 0 );
  715.  
  716.     }
  717.     else {
  718.  
  719.         theMenu =  GetMenuHandle ( mFile ) ;
  720.  
  721.         DisableItem ( theMenu, iClose );
  722.         DisableItem ( theMenu, iRevert );
  723.         DisableItem ( theMenu, iSave );
  724.         DisableItem ( theMenu, iSaveAs );
  725.         
  726.         DisableItem ( GetMenuHandle ( mEdit ), 0 );
  727.     }
  728.     
  729.     // we don't support undo
  730.     DisableItem ( GetMenuHandle ( mEdit ), iUndo );
  731.     
  732.     DrawMenuBar() ;
  733. }
  734.  
  735.  
  736. //--------------------------------------------------------------------------------------------
  737. //
  738. //
  739. OSErr    MyDisposeViewerWindow( WindowPtr theWindow )
  740. {
  741.     TQ3ViewerObject     theViewer ;
  742.     ViewerDataHandle    myData ;
  743.     
  744.     if( theWindow == nil)
  745.         return paramErr ;
  746.  
  747.     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  748.     theViewer = (**myData).theViewer ;
  749.     
  750.     DisposeHandle((Handle)myData);
  751.     DisposeWindow(theWindow);
  752.     
  753.     MyAdjustMenus() ;
  754.     return     Q3ViewerDispose(theViewer);
  755. }
  756.  
  757.  
  758. //--------------------------------------------------------------------------------------------
  759. //
  760. //
  761. CGrafPtr MyCreateViewerWindow(  )
  762. {
  763.  
  764.     Rect                theRect ;
  765.     GrafPtr                savedPort ;
  766.     TQ3ViewerObject        myViewerObj ;
  767.     WindowPtr            theWindow ;
  768.     ViewerDataHandle    myData = (ViewerDataHandle)NewHandle(sizeof(ViewerData)) ;
  769.     
  770.     GetPort( &savedPort ) ;
  771.         
  772.     // set the new rect up with a stagger for multiple windows
  773.     SetRect(    &theRect, 
  774.                 gStaggerPos.h, 
  775.                 gStaggerPos.v, 
  776.                 gStaggerPos.h + kWindowWidth, 
  777.                 gStaggerPos.v + kWindowHeight );
  778.  
  779.     gStaggerPos.h += 16 ;
  780.     gStaggerPos.v += 16 ;        // this is not "real staggering code, it don't wrap ;        
  781.                          
  782.     theWindow  = NewCWindow(    nil, 
  783.                                 &theRect, 
  784.                                 "\pUntitled", 
  785.                                 false, 
  786.                                 documentProc, 
  787.                                 (WindowPtr)-1, 
  788.                                 true, 
  789.                                 0L );    
  790.                     
  791.     SetPort( (GrafPtr)theWindow ) ;
  792.     
  793.     // set up the viewer object here
  794.     
  795.     
  796.     myViewerObj = Q3ViewerNew ((CGrafPtr)theWindow,  &theWindow->portRect,  kQ3ViewerDefault) ; 
  797.     
  798.     //stuff the reference to the viewer in the RefCon field of the Window
  799.     (**myData).theViewer = myViewerObj ;
  800.     (**myData).isFileValid = false ;
  801.     SetWRefCon( theWindow, (long)myData );
  802.     
  803.     // make sure it is visible
  804.     ShowWindow( theWindow ) ;
  805.     
  806.     SetPort( savedPort ) ;
  807.     
  808.     return (CGrafPtr)theWindow ;
  809. }
  810.  
  811.  
  812. //-----------------------------------------------------------------------
  813. // returns true if the platform supports appleevents - we won't run
  814. // if it doesn't
  815.  
  816. Boolean SupportsAEVT(void)
  817. {
  818.     OSErr err;
  819.     long response;
  820.         
  821.     err = Gestalt(gestaltAppleEventsAttr,&response);
  822.     if (err!=noErr)
  823.         return false;
  824.         
  825.     return (response && (response << gestaltAppleEventsPresent));
  826. }
  827.  
  828. //-----------------------------------------------------------------------
  829. // called to register our appleevent handlers
  830.  
  831. void RegisterMyEvents(void)
  832. {
  833.     OSErr err;
  834.     
  835.     if (!SupportsAEVT())
  836.         return;
  837.     
  838.     err = AEInstallEventHandler(kCoreEventClass,kAEOpenApplication,NewAEEventHandlerProc(MyAEHandleOAPP),0L,false);
  839.     if (err!=noErr)
  840.         return;
  841.                 
  842.     err = AEInstallEventHandler(kCoreEventClass,kAEOpenDocuments,NewAEEventHandlerProc(MyAEHandleODOC),0L,false);
  843.     if (err!=noErr)
  844.         return;
  845.                 
  846.     err = AEInstallEventHandler(kCoreEventClass,kAEPrintDocuments,NewAEEventHandlerProc(MyAEHandlePDOC),0L,false);
  847.     if (err!=noErr)
  848.         return;
  849.                 
  850.     err = AEInstallEventHandler(kCoreEventClass,kAEQuitApplication,NewAEEventHandlerProc(MyAEHandleQUIT),0L,false);
  851.     if (err!=noErr)
  852.         return;
  853. }
  854.  
  855. //-----------------------------------------------------------------------
  856. // open application event handler for the core event suite, 
  857. // by default we just want a blank new document
  858.  
  859. pascal OSErr MyAEHandleOAPP( AppleEvent *theAppleEvent, AppleEvent *reply, long refCon)
  860. {
  861.     // we don't actually do anything on open - you could,
  862.     // for example you might want to open a blank untitled 
  863.     // window
  864.     
  865.     OSErr err = noErr ;
  866.     return err;
  867. }
  868.  
  869.  
  870. //-----------------------------------------------------------------------
  871. // handler for the open document appleevent handler
  872.  
  873. pascal OSErr MyAEHandleODOC(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon)
  874. {
  875.     FSSpec         myFSS;
  876.     AEDescList    docList;
  877.     OSErr        err,
  878.                 ignoreErr;
  879.     long        index,
  880.                 itemsInList;
  881.     Size         actualSize;
  882.     AEKeyword    keywd;
  883.     DescType    returnedType;
  884.  
  885.     
  886.     err = AEGetParamDesc(theAppleEvent,keyDirectObject,typeAEList,&docList);
  887.     if (err == noErr) {
  888.     
  889.         // see how many descriptor items are in the list
  890.         // this is the number of documents we want to open
  891.         err = AECountItems(&docList,&itemsInList);
  892.  
  893.         // now get each descriptor record from the list
  894.         // coerce the returned data to an FSSpec record, and
  895.         // open the asoociated file
  896.         
  897.         for (index=1; index <= itemsInList && err == noErr; index++) {
  898.         
  899.             err = AEGetNthPtr(    &docList, 
  900.                                 index,
  901.                                 typeFSS,
  902.                                 &keywd,
  903.                                 &returnedType,
  904.                                 (Ptr)&myFSS,
  905.                                 sizeof(myFSS),
  906.                                 &actualSize);
  907.     
  908.             if (err == noErr)    {
  909.             
  910.                 FInfo        fndrInfo ;
  911.                 
  912.                 // we now have a valid FSSpec to reference the file, we need to know 
  913.                 // what type the file is to determine which file open function to call
  914.                 // we can determine this from the finder info for the file
  915.                 
  916.                 err = FSpGetFInfo( &myFSS, &fndrInfo );    
  917.                 
  918.                 // if we got that ok, then we switch on the file  
  919.                 // type (we don't care about the creator type)    
  920.                         
  921.                 if (err == noErr)    {
  922.                 
  923.                     switch( fndrInfo.fdType ) {
  924.                         case 'TEXT':
  925.                         case '3DMF':
  926.                             err =  HandleOpenDoc(&myFSS);
  927.                             break ;
  928.                     }
  929.                 }
  930.             }
  931.         }
  932.         ignoreErr = AEDisposeDesc(&docList);
  933.     }
  934.     return err ;
  935. }
  936.  
  937. //-----------------------------------------------------------------------
  938. // handler for the print document event handler
  939.  
  940. pascal OSErr MyAEHandlePDOC(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon)
  941. {
  942.     FSSpec         myFSS;
  943.     AEDescList    docList;
  944.     OSErr        err;
  945.     long        index,
  946.                 itemsInList;
  947.     Size         actualSize;
  948.     AEKeyword    keywd;
  949.     DescType    returnedType;
  950.  
  951.     
  952.     err = AEGetParamDesc(theAppleEvent,keyDirectObject,typeAEList,&docList);
  953.     if (err == noErr) {
  954.     
  955.         // see how many descriptor items are in the list
  956.         // this is the number of documents we want to open
  957.         err = AECountItems(&docList,&itemsInList);
  958.  
  959.         // now get each descriptor record from the list
  960.         // coerce the returned data to an FSSpec record, and
  961.         // open the asoociated file
  962.         
  963.         for (index=1; index <= itemsInList && err == noErr; index++) {
  964.         
  965.             err = AEGetNthPtr(    &docList, 
  966.                                 index,
  967.                                 typeFSS,
  968.                                 &keywd,
  969.                                 &returnedType,
  970.                                 (Ptr)&myFSS,
  971.                                 sizeof(myFSS),
  972.                                 &actualSize);
  973.     
  974.             if (err == noErr)    {                    
  975.                 // err = HandlePrintDoc( &myFSS );
  976.                 err = errAEEventNotHandled ;         // we don't do this yet...
  977.             }
  978.         }
  979.         err = AEDisposeDesc(&docList);
  980.     }
  981.     return err ;
  982. }
  983.  
  984. //-----------------------------------------------------------------------
  985. // quit appleevent handler
  986.  
  987. pascal OSErr MyAEHandleQUIT(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon)
  988. {
  989.     OSErr             err = noErr ;        // used as return value
  990.     WindowPtr        theWindow ;
  991.     Boolean            quitting = true ;
  992.  
  993.     
  994.     // close all windows and signal to Quit
  995.  
  996.         
  997.     // attempt to close all documents
  998.     while(( theWindow = FrontWindow()) != nil && quitting )
  999.         quitting = (MyDisposeViewerWindow( theWindow ) == noErr);    
  1000.         
  1001.  
  1002.     // if we closed everything up successfully, we can return noErr, otherwise
  1003.     // indicate to sender of the 'quit' aevt that we canceled
  1004.     
  1005.     if (quitting) {
  1006.         gQuitFlag = true;                    // user didn't cancel
  1007.          AEDisposeDesc(&gSelfAddress);        // Dispose of my self-addressed descriptor.
  1008.     }
  1009.     else {
  1010.         err = userCanceledErr ;
  1011.     }
  1012.             
  1013.     return err ;
  1014. }
  1015.  
  1016.  
  1017. //----------------------------------------------------------------------------------//
  1018. //    Send a Quit Application Apple Event to myself to terminate this app.        
  1019.  
  1020. void MySendQuitApp( void )
  1021. {
  1022.     AppleEvent    myAppleEvent, reply;
  1023.     
  1024.     //    Create the Apple Event.
  1025.     FailIfErr(AECreateAppleEvent( kCoreEventClass, 
  1026.                                   kAEQuitApplication, 
  1027.                                   &gSelfAddress,
  1028.                                   kAutoGenerateReturnID, 
  1029.                                   kAnyTransactionID, 
  1030.                                   &myAppleEvent));
  1031.                                   
  1032.     //    Send the Apple Event.
  1033.       FailIfErr(AESend( &myAppleEvent, 
  1034.                         &reply, 
  1035.                         kAENoReply+kAENeverInteract, 
  1036.                         kAENormalPriority,
  1037.                         kAEDefaultTimeout, 
  1038.                         nil, 
  1039.                         nil));
  1040.                         
  1041.       AEDisposeDesc(&myAppleEvent);                // Dispose of the Apple Event.
  1042. } // MySendQuitApp
  1043.  
  1044.  
  1045. //----------------------------------------------------------------------------------//
  1046. //    Send a Open Document Application Apple Event to myself to open a document.        
  1047.  
  1048. void MySendOpenDoc(FSSpec *myFSSpec)
  1049. {
  1050.      AppleEvent    myAppleEvent;
  1051.     AppleEvent    defReply;
  1052.     AEDescList    docList;
  1053.     OSErr         myErr;
  1054.     OSErr         ignoreErr;
  1055.     
  1056.     myAppleEvent.dataHandle = nil;
  1057.     docList.dataHandle  = nil;
  1058.     defReply.dataHandle = nil;
  1059.         
  1060.     // Create empty list and add one file spec
  1061.     FailIfErr(AECreateList(nil,0,false, &docList));
  1062.     
  1063.     FailIfErr(AEPutPtr(&docList,1,typeFSS,(Ptr)myFSSpec,sizeof(FSSpec)));
  1064.         
  1065.     FailIfErr(AECreateAppleEvent(    kCoreEventClass,
  1066.                                     kAEOpenDocuments,
  1067.                                     &gSelfAddress,
  1068.                                     kAutoGenerateReturnID,
  1069.                                     kAnyTransactionID,
  1070.                                     &myAppleEvent));
  1071.  
  1072.     // Put Params into our event and send it
  1073.  
  1074.     FailIfErr(AEPutParamDesc( &myAppleEvent,
  1075.                               keyDirectObject,
  1076.                               &docList));
  1077.  
  1078.     FailIfErr(AESend( &myAppleEvent,
  1079.                       &defReply,
  1080.                       kAENoReply+kAENeverInteract,
  1081.                       kAENormalPriority,
  1082.                       kAEDefaultTimeout,
  1083.                       nil,
  1084.                       nil));
  1085.         
  1086.         
  1087.     if (myAppleEvent.dataHandle) 
  1088.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  1089.         
  1090.     if (docList.dataHandle) 
  1091.         ignoreErr = AEDisposeDesc(&docList);
  1092.             
  1093. }    // MySendOpenDoc 
  1094.